Public Class InstellingenVervangingVenster

    Private Sub ZoekwoordTextBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ZoekwoordTextBox.TextChanged
        If ZoekwoordTextBox.Text <> String.Empty Then
            StartButton.Enabled = True
        Else
            StartButton.Enabled = False
        End If
    End Sub

    Private Sub StartButton_Click(sender As System.Object, e As EventArgs) Handles StartButton.Click
        If BevestigingCheckBox.Checked Then
            Hide()

            ' Vervangen met opties
            Dim vervangForm As New VervangMetOptiesVenster(ZoekwoordTextBox.Text, VervangwoordTextBox.Text, String.Empty, String.Empty, String.Empty, False, False)
            vervangForm.VervangingenUitvoeren()
            vervangForm.Close()
        Else
            ' Overal vervangen, zonder bevestiging te vragen
            Dim verv As New Vervanging
            verv.Vervangen(ZoekwoordTextBox.Text, VervangwoordTextBox.Text, HoofdlettersCheckBox.Checked)
        End If

        Close()
    End Sub

    Private Sub AnnulerenButton_Click(sender As System.Object, e As EventArgs) Handles AnnulerenButton.Click
        Close()
    End Sub

End Class